home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- String STRING002
- String STRING003
- String STRING004
- String STRING005
- String STRING006
- String STRING007
- String STRING008
- String STRING009
- String STRING010
- String STRING011
- String STRING012
- String STRING013
- String STRING014
- String STRING015
- String STRING016
- String STRING017
- String STRING018
- String STRING019
- String STRING020
- String STRING021
- String STRING022
- String STRING023
- String STRING024
- String STRING025
-
- ;------------------------------------------------------------------------------
-
- STRING002 = ""
- Log "RECEIPT: entered", 0
- GetUser
- If (Psa(3)) Goto LABEL001
- Log "RECEIPT: address PSA not installed", 0
- PrintLn "RECEIPT: address PSA not installed"
- PrintLn "Please notify sysop. Exiting..."
- Goto LABEL002
- :LABEL001
- FOpen 1, PPEPath() + "RECEIPT.CFG", 0, 0
- If (Ferr(1)) Then
- PrintLn "@X02RECEIPT: could not open RECEIPT.CFG, exiting..."
- Log "RECEIPT: could not open RECEIPT.CFG, exiting...", 0
- Else
- FGet 1, STRING019
- FGet 1, STRING020
- FGet 1, STRING021
- FGet 1, STRING022
- FGet 1, STRING023
- FGet 1, STRING024
- FGet 1, STRING003
- FGet 1, STRING004
- FGet 1, STRING005
- FGet 1, STRING006
- FGet 1, STRING007
- FGet 1, STRING008
- FGet 1, STRING009
- FGet 1, STRING010
- FGet 1, STRING011
- FGet 1, STRING012
- FGet 1, STRING014
- FGet 1, STRING015
- FGet 1, STRING016
- FGet 1, STRING017
- FGet 1, STRING018
- If (Ferr(1)) Then
- PrintLn "@X02RECEIPT: error reading RECEIPT.CFG, exiting..."
- Log "RECEIPT: error reading RECEIPT.CFG, exiting...", 0
- FClose 1
- Else
- FClose 1
- PrintLn "@CLS@@X07@X0C▐@X4C┌───────────────────────────────────────────────────────────────────────────@X40┐@X08▌"
- PrintLn "@X0C▐@X4C│ @X4ERECEIPT.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS: (905) 568-5294 @X40│@X08▌"
- PrintLn "@X0C▐@X4C└@X40───────────────────────────────────────────────────────────────────────────┘@X08▌"
- If (STRING002 <> "") Then
- STRING025 = "@X0EREGISTERED TO: " + STRING002
- Forward (80 - Len(STRING025)) / 2
- PrintLn "@X08" + STRING025
- Else
- PrintLn "@X8E UNREGISTERED EVALUATION COPY"
- Endif
- If (((((U_Sec <> STRING003) && (U_Sec <> STRING005)) && (U_Sec <> STRING007)) && (U_Sec <> STRING009)) && (U_Sec <> STRING011)) Then
- PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
- Print "@X0Cinformation about subscribing to @BOARDNAME@."
- Newline
- Print "@WAIT@"
- Else
- FCreate 1, PPEPath() + "RECEIPT.TXT", 1, 2
- If (Ferr(1)) Then
- PrintLn "@X02RECEIPT: error opening RECEIPT.TXT, exiting..."
- Log "@X02RECEIPT: error opening RECEIPT.TXT, exiting...", 0
- Else
- Select Case (U_Sec)
- Case STRING003
- STRING013 = STRING004
- Case STRING005
- STRING013 = STRING006
- Case STRING007
- STRING013 = STRING008
- Case STRING009
- STRING013 = STRING010
- Case STRING011
- STRING013 = STRING012
- Case Else
- PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
- Print "@X0Cinformation about subscribing to @BOARDNAME@."
- Newline
- Print "@WAIT@"
- Goto LABEL002
- End Select
- FPutLn 1, "*****************************************************************************"
- FPutLn 1, "* RECEIPT.PPE * COPYRIGHT 1994 ROBERT BROWER * TOTAL ACCESS: (905) 568-5294 *"
- FPutLn 1, "*****************************************************************************"
- FPutLn 1, ""
- If (STRING002 == "") Then
- FPutLn 1, "THIS RECEIPT GENERATED BY AN UNREGISTERED EVALUATION COPY"
- FPutLn 1, ""
- Else
- FPutLn 1, "REGISTERED TO: " + STRING002
- FPutLn 1, ""
- Endif
- FPutLn 1, STRING019, " - ", STRING021
- FPutLn 1, STRING022, " - ", STRING024, " - ", STRING023
- FPutLn 1, STRING020
- FPutLn 1, ""
- FPutLn 1, "RECEIVED FROM: ", U_Name(), " THE AMMOUNT OF: ", STRING013
- FPutLn 1, "FOR ACCESS LEVEL: ", U_Sec, " UNTIL THE DATE: ", U_ExpDate
- FPutLn 1, ""
- FPutLn 1, "USER ADDRESS:"
- FPutLn 1, U_Addr(0) + " " + U_Addr(1)
- FPutLn 1, U_Addr(2) + ", " + U_Addr(3)
- FPutLn 1, U_Addr(4) + ", " + U_Addr(5)
- FPutLn 1, "USER HOME PHONE: " + U_HVPhone
- FPutLn 1, "USER DATA PHONE: " + U_BDPhone
- FPutLn 1, ""
- FPutLn 1, "SYSOP COMMENTS:"
- FPutLn 1, ""
- FPutLn 1, STRING014
- FPutLn 1, STRING015
- FPutLn 1, STRING016
- FPutLn 1, STRING017
- FPutLn 1, STRING018
- FPutLn 1, ""
- FPutLn 1, "PLEASE REPORT ANY DISCREPENCIES IN THIS RECEIPT TO YOUR SYSOP. THANK YOU!"
- FClose 1
- PrintLn
- Print "@WAIT@"
- Newline
- Download "RECEIPT.TXT" + ";" + U_Trans
- Endif
- Endif
- Endif
- Endif
- :LABEL002
- FClose 1
- FClose 2
- Log "RECEIPT: exited", 0
- End
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 1 End
- ; 25 Goto
- ; 7 Let
- ; 5 Print
- ; 13 PrintLn
- ; 12 If
- ; 1 FCreate
- ; 1 FOpen
- ; 5 FClose
- ; 21 FGet
- ; 31 FPutLn
- ; 1 GetUser
- ; 6 Log
- ; 3 Newline
- ; 1 Forward
- ; 1 Download
- ;
- ;
- ; ■ Functions used :
- ;
- ; 1 /
- ; 15 +
- ; 1 -
- ; 6 ==
- ; 6 <>
- ; 12 !
- ; 4 &&
- ; 1 Len(
- ; 3 Ferr()
- ; 1 U_Name()
- ; 2 PPEPath()
- ; 1 Psa()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : No flag
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 6 If/Then or If/Then/Else
- ; 1 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-